package Document;

use Moose;

sub as_xml {
	my $self = shift;
	
	my $xml = "<document>\n";
	$xml .= inner();
	$xml .= "</document>\n";
	
	return $xml;
}

1;

